home *** CD-ROM | disk | FTP | other *** search
/ ftp.mactech.com 2010 / ftp.mactech.com.tar / ftp.mactech.com / machack / Hacks97 / NewsTicker.sit / NewsTicker / source code / InternetConfig / ICTypes.p < prev    next >
Text File  |  1997-02-17  |  2KB  |  56 lines
  1. unit ICTypes;
  2.  
  3. interface
  4.  
  5. {$ifc undefined THINK_Pascal}
  6.     uses
  7.         Types;
  8. {$endc}
  9.  
  10.     const
  11.         icPrefNotFoundErr = -666;            (* preference not found (duh!) *)
  12.         icPermErr = -667;                        (* cannot set preference *)
  13.         icPrefDataErr = -668;                    (* problem with preference data *)
  14.         icInternalErr = -669;                    (* hmm, this is not good *)
  15.         icTruncatedErr = -670;                    (* more data was present than was returned *)
  16.         icNoMoreWritersErr = -671;            (* you cannot begin a write session because someone else is already doing it *)
  17.         icNothingToOverrideErr = -672;    (* no component for the override component to capture *)
  18.         icNoURLErr = -673;                        (* no URL found *)
  19.         icConfigNotFoundErr = -674;            (* no configuration was found *)
  20.         icConfigInappropriateErr = -675;    (* incorrect manufacturer code *)
  21.  
  22.     const
  23.         ICattr_no_change = -1;    (* supply this to ICSetPref to tell it not to change the attributes *)
  24.  
  25.         ICattr_locked_bit = 0;                                        (* bits in the preference attributes *)
  26.         ICattr_locked_mask = $00000001;                    (* masks for the above *)
  27.         ICattr_volatile_bit = 1;
  28.         ICattr_volatile_mask = $00000002;
  29.  
  30.         icNoUserInteraction_bit = 0;
  31.         icNoUserInteraction_mask = $00000001;
  32.  
  33.         ICfiletype = 'ICAp';
  34.         ICcreator = 'ICAp';
  35.         ICdefault_file_name = 'Internet Preferences';    (* default file name, for internal use, overridden by a component resource *)
  36.     type
  37.         ICDirSpec = record                                            (* a record that specifies a folder *)
  38.                 vRefNum: integer;
  39.                 dirID: longint;
  40.             end;
  41.         ICDirSpecArray = array[0..3] of ICDirSpec;    (* an array of the above *)
  42.         ICDirSpecArrayPtr = ^ICDirSpecArray;                (* a pointer to that array *)
  43.         ICAttr = longint;                                                (* type for preference attributes *)
  44.         ICError = longint;                                                (* type for error codes *)
  45.         ICInstance = Ptr;                                                (* opaque type for preference reference *)
  46.         ICPerm = (icNoPerm, icReadOnlyPerm, icReadWritePerm);
  47.         ICConfigRef = record
  48.                 manufacturer: OSType;
  49.                 (* other private data follows *)
  50.             end;
  51.         ICConfigRefPtr = ^ICConfigRef;
  52.         ICConfigRefHandle = ^ICConfigRefPtr;
  53.  
  54. implementation
  55.  
  56. end. (* ICTypes *)